﻿Public Class frmContenedor

    Private Sub btnMenuSocio_Click(sender As System.Object, e As System.EventArgs) Handles btnMenuSocio.Click
        My.Forms.frmSocio.MdiParent = Me
        My.Forms.frmSocio.Show()
        My.Forms.frmSocio.BringToFront()
        frmSocio.Dock = DockStyle.Fill
        btnMenuSocio.Focus()
    End Sub

    Private Sub btnMenuClub_Click(sender As System.Object, e As System.EventArgs) Handles btnMenuClub.Click
        My.Forms.frmClub.MdiParent = Me
        My.Forms.frmClub.Show()
        My.Forms.frmClub.BringToFront()
        frmClub.Dock = DockStyle.Fill
        btnMenuClub.Focus()
    End Sub

    Private Sub btnMenuJueces_Click(sender As System.Object, e As System.EventArgs) Handles btnMenuJueces.Click
        My.Forms.frmJueces.MdiParent = Me
        My.Forms.frmJueces.Show()
        My.Forms.frmJueces.BringToFront()
        frmJueces.Dock = DockStyle.Fill
        btnMenuJueces.Focus()
    End Sub

    Private Sub btnMenuEstadisticasListados_Click(sender As System.Object, e As System.EventArgs) Handles btnMenuEstadisticasListados.Click

    End Sub

    Private Sub btnMenuProducto_Click(sender As System.Object, e As System.EventArgs) Handles btnMenuProducto.Click
        My.Forms.frmProductos.MdiParent = Me
        My.Forms.frmProductos.Show()
        My.Forms.frmProductos.BringToFront()
        frmProductos.Dock = DockStyle.Fill
        btnMenuProducto.Focus()
    End Sub

    Private Sub btnMenuFacturacion_Click(sender As System.Object, e As System.EventArgs) Handles btnMenuFacturacion.Click

    End Sub

    Private Sub btnMenuPartido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenuPartido.Click
        My.Forms.frmPartido.MdiParent = Me
        My.Forms.frmPartido.Show()
        My.Forms.frmPartido.BringToFront()
        frmPartido.Dock = DockStyle.Fill
        btnMenuPartido.Focus()
    End Sub

    Private Sub frmContenedor_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim cons As consultas = New consultas
        MsgBox("Resultado: " & cons.SelectJuez("jose").ToString)
    End Sub
End Class